/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_08 / loadwide

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 20 | 4c 6f 61 64 57 69 64 65 |..... > |LoadWide|
|00000010| 0d 00 14 04 0d 00 1e 26 | f4 20 28 43 29 20 52 69 |.......&|. (C) Ri|
|00000020| 63 68 61 72 64 20 41 76 | 65 72 69 6c 6c 2c 20 4d |chard Av|erill, M|
|00000030| 61 72 63 68 20 31 39 38 | 39 2e 0d 00 28 04 0d 00 |arch 198|9...(...|
|00000040| 32 48 f4 20 4c 6f 61 64 | 73 20 6d 6f 64 65 20 31 |2H. Load|s mode 1|
|00000050| 32 20 28 36 34 30 78 32 | 35 36 78 31 36 29 20 73 |2 (640x2|56x16) s|
|00000060| 70 72 69 74 65 73 20 69 | 6e 74 6f 20 6d 6f 64 65 |prites i|nto mode|
|00000070| 20 31 36 20 28 31 30 35 | 36 78 32 35 36 78 31 36 | 16 (105|6x256x16|
|00000080| 2e 74 65 78 74 29 0d 00 | 3c 04 0d 00 46 46 f4 20 |.text)..|<...FF. |
|00000090| 54 6f 20 73 70 65 65 64 | 20 75 70 20 6f 70 65 72 |To speed| up oper|
|000000a0| 61 74 69 6f 6e 73 2c 20 | 61 20 74 65 6d 70 6f 72 |ations, |a tempor|
|000000b0| 61 72 79 20 62 75 66 66 | 65 72 20 69 73 20 75 73 |ary buff|er is us|
|000000c0| 65 64 20 3a 20 6c 65 6e | 67 74 68 20 38 31 6b 2e |ed : len|gth 81k.|
|000000d0| 0d 00 50 04 0d 00 5a 21 | de 20 62 75 66 66 65 72 |..P...Z!|. buffer|
|000000e0| 25 20 31 30 30 30 2c 20 | 74 65 6d 70 25 20 38 31 |% 1000, |temp% 81|
|000000f0| 2a 31 30 32 34 0d 00 64 | 04 0d 00 6e 0b 6d 6f 64 |*1024..d|...n.mod|
|00000100| 65 25 3d eb 0d 00 78 05 | f5 0d 00 82 1b e7 20 6d |e%=...x.|...... m|
|00000110| 6f 64 65 25 3c 31 38 20 | 8c 20 eb 20 30 20 8b 20 |ode%<18 |. . 0 . |
|00000120| eb 20 31 38 0d 00 8c 40 | f1 20 27 22 4c 6f 61 64 |. 18...@|. '"Load|
|00000130| 2d 57 69 64 65 20 42 41 | 53 49 43 20 56 20 70 72 |-Wide BA|SIC V pr|
|00000140| 6f 63 65 64 75 72 65 20 | 28 6c 6f 61 64 20 6d 6f |ocedure |(load mo|
|00000150| 64 65 20 31 32 20 69 6e | 74 6f 20 6d 6f 64 65 20 |de 12 in|to mode |
|00000160| 31 36 29 22 0d 00 96 2b | f1 20 27 22 a9 20 52 69 |16)"...+|. '". Ri|
|00000170| 63 68 61 72 64 20 41 6e | 74 68 6f 6e 79 20 41 76 |chard An|thony Av|
|00000180| 65 72 69 6c 6c 2c 20 31 | 39 38 38 2e 22 27 27 0d |erill, 1|988."''.|
|00000190| 00 a0 56 f1 22 44 65 6d | 6f 6e 73 74 72 61 74 69 |..V."Dem|onstrati|
|000001a0| 6f 6e 20 73 63 72 65 65 | 6e 73 20 6f 66 20 74 68 |on scree|ns of th|
|000001b0| 65 20 6e 65 77 20 41 72 | 63 2d 44 46 53 20 72 65 |e new Ar|c-DFS re|
|000001c0| 61 64 65 72 20 3a 20 22 | 27 27 22 22 22 64 66 73 |ader : "|''"""dfs|
|000001d0| 72 65 61 64 65 72 31 22 | 22 20 28 6d 6f 64 65 20 |reader1"|" (mode |
|000001e0| 31 32 29 22 27 0d 00 aa | 1c e8 20 22 46 69 6c 65 |12)"'...|.. "File|
|000001f0| 6e 61 6d 65 3a 20 22 66 | 69 6c 65 5f 6e 61 6d 65 |name: "f|ile_name|
|00000200| 24 0d 00 b4 1c e8 20 22 | 78 20 6f 66 66 73 65 74 |$..... "|x offset|
|00000210| 3a 20 22 20 6f 66 66 73 | 65 74 5f 78 25 0d 00 be |: " offs|et_x%...|
|00000220| 1b 6f 66 66 73 65 74 5f | 78 25 3d 6f 66 66 73 65 |.offset_|x%=offse|
|00000230| 74 5f 78 25 20 81 20 32 | 0d 00 c8 35 f2 6c 6f 61 |t_x% . 2|...5.loa|
|00000240| 64 77 69 64 65 28 66 69 | 6c 65 5f 6e 61 6d 65 24 |dwide(fi|le_name$|
|00000250| 2c 6f 66 66 73 65 74 5f | 78 25 2c 62 75 66 66 65 |,offset_|x%,buffe|
|00000260| 72 25 2c 39 35 30 2c 74 | 65 6d 70 25 29 0d 00 d2 |r%,950,t|emp%)...|
|00000270| 15 c8 99 20 22 4f 53 5f | 42 79 74 65 22 2c 32 31 |... "OS_|Byte",21|
|00000280| 2c 30 0d 00 dc 0b e7 20 | a5 20 3a 20 cd 0d 00 e6 |,0..... |. : ....|
|00000290| 07 fd 20 a3 0d 00 f0 04 | 0d 00 fa 04 0d 01 04 17 |.. .....|........|
|000002a0| f4 20 42 61 73 69 63 20 | 56 20 4c 6f 61 64 57 69 |. Basic |V LoadWi|
|000002b0| 64 65 2e 0d 01 0e 26 f4 | 20 28 43 29 20 52 69 63 |de....&.| (C) Ric|
|000002c0| 68 61 72 64 20 41 76 65 | 72 69 6c 6c 2c 20 4d 61 |hard Ave|rill, Ma|
|000002d0| 72 63 68 20 31 39 38 39 | 2e 0d 01 18 49 f4 20 54 |rch 1989|....I. T|
|000002e0| 68 69 73 20 69 73 20 61 | 20 6c 69 62 72 61 72 79 |his is a| library|
|000002f0| 20 70 72 6f 63 65 64 75 | 72 65 20 77 68 69 63 68 | procedu|re which|
|00000300| 20 79 6f 75 20 63 61 6e | 20 75 73 65 20 69 6e 20 | you can| use in |
|00000310| 79 6f 75 72 20 6f 77 6e | 20 70 72 6f 67 72 61 6d |your own| program|
|00000320| 73 2e 0d 01 22 04 0d 01 | 2c 04 0d 01 36 57 dd 20 |s..."...|,...6W. |
|00000330| f2 6c 6f 61 64 77 69 64 | 65 28 66 69 6c 65 5f 6e |.loadwid|e(file_n|
|00000340| 61 6d 65 24 2c 6f 66 66 | 73 65 74 5f 78 25 2c 74 |ame$,off|set_x%,t|
|00000350| 65 6d 70 6f 72 61 72 79 | 5f 62 75 66 66 65 72 25 |emporary|_buffer%|
|00000360| 2c 74 65 6d 70 6f 72 61 | 72 79 5f 6c 65 6e 67 74 |,tempora|ry_lengt|
|00000370| 68 25 2c 69 6d 61 67 65 | 5f 62 75 66 66 65 72 25 |h%,image|_buffer%|
|00000380| 29 0d 01 40 2d ea 20 66 | 69 6c 65 5f 68 61 6e 64 |)..@-. f|ile_hand|
|00000390| 6c 65 25 2c 73 70 72 69 | 74 65 5f 73 74 61 72 74 |le%,spri|te_start|
|000003a0| 25 2c 69 6d 61 67 65 5f | 73 74 61 72 74 25 0d 01 |%,image_|start%..|
|000003b0| 4a 04 0d 01 54 24 e7 20 | 6f 66 66 73 65 74 5f 78 |J...T$. |offset_x|
|000003c0| 25 3e 3d 31 36 30 20 8c | 20 6f 66 66 73 65 74 5f |%>=160 .| offset_|
|000003d0| 78 25 3d 31 36 30 0d 01 | 5e 04 0d 01 68 1e 66 69 |x%=160..|^...h.fi|
|000003e0| 6c 65 5f 68 61 6e 64 6c | 65 25 3d 8e 28 66 69 6c |le_handl|e%=.(fil|
|000003f0| 65 5f 6e 61 6d 65 24 29 | 0d 01 72 45 c8 99 20 22 |e_name$)|..rE.. "|
|00000400| 4f 53 5f 47 42 50 42 22 | 2c 33 2c 66 69 6c 65 5f |OS_GBPB"|,3,file_|
|00000410| 68 61 6e 64 6c 65 25 2c | 74 65 6d 70 6f 72 61 72 |handle%,|temporar|
|00000420| 79 5f 62 75 66 66 65 72 | 25 2c 74 65 6d 70 6f 72 |y_buffer|%,tempor|
|00000430| 61 72 79 5f 6c 65 6e 67 | 74 68 25 2c 30 0d 01 7c |ary_leng|th%,0..||
|00000440| 04 0d 01 86 3b 73 70 72 | 69 74 65 5f 73 74 61 72 |....;spr|ite_star|
|00000450| 74 25 3d 28 74 65 6d 70 | 6f 72 61 72 79 5f 62 75 |t%=(temp|orary_bu|
|00000460| 66 66 65 72 25 21 34 29 | 2b 74 65 6d 70 6f 72 61 |ffer%!4)|+tempora|
|00000470| 72 79 5f 62 75 66 66 65 | 72 25 2d 34 0d 01 90 31 |ry_buffe|r%-4...1|
|00000480| 69 6d 61 67 65 5f 73 74 | 61 72 74 25 3d 73 70 72 |image_st|art%=spr|
|00000490| 69 74 65 5f 73 74 61 72 | 74 25 2b 28 73 70 72 69 |ite_star|t%+(spri|
|000004a0| 74 65 5f 73 74 61 72 74 | 25 21 33 32 29 0d 01 9a |te_start|%!32)...|
|000004b0| 04 0d 01 a4 13 63 75 72 | 72 65 6e 74 5f 6d 6f 64 |.....cur|rent_mod|
|000004c0| 65 25 3d eb 0d 01 ae 1e | e7 20 63 75 72 72 65 6e |e%=.....|. curren|
|000004d0| 74 5f 6d 6f 64 65 25 3c | 3e 31 36 20 8c 20 eb 20 |t_mode%<|>16 . . |
|000004e0| 31 36 0d 01 b8 04 0d 01 | c2 25 e7 20 69 6d 61 67 |16......|.%. imag|
|000004f0| 65 5f 73 74 61 72 74 25 | 3e 73 70 72 69 74 65 5f |e_start%|>sprite_|
|00000500| 73 74 61 72 74 25 2b 34 | 34 20 8c 0d 01 cc 14 e3 |start%+4|4 ......|
|00000510| 20 63 6f 6c 6f 75 72 25 | 3d 30 20 b8 20 31 35 0d | colour%|=0 . 15.|
|00000520| 01 d6 2f 72 67 62 5f 61 | 64 64 72 65 73 73 25 3d |../rgb_a|ddress%=|
|00000530| 28 63 6f 6c 6f 75 72 25 | 2a 38 29 2b 31 2b 73 70 |(colour%|*8)+1+sp|
|00000540| 72 69 74 65 5f 73 74 61 | 72 74 25 2b 34 34 0d 01 |rite_sta|rt%+44..|
|00000550| e0 3a fb 20 63 6f 6c 6f | 75 72 25 2c 72 67 62 5f |.:. colo|ur%,rgb_|
|00000560| 61 64 64 72 65 73 73 25 | 3f 30 2c 72 67 62 5f 61 |address%|?0,rgb_a|
|00000570| 64 64 72 65 73 73 25 3f | 31 2c 72 67 62 5f 61 64 |ddress%?|1,rgb_ad|
|00000580| 64 72 65 73 73 25 3f 32 | 0d 01 ea 05 ed 0d 01 f4 |dress%?2|........|
|00000590| 05 cd 0d 01 fe 04 0d 02 | 08 26 6c 65 6e 67 74 68 |........|.&length|
|000005a0| 5f 78 25 3d 28 28 73 70 | 72 69 74 65 5f 73 74 61 |_x%=((sp|rite_sta|
|000005b0| 72 74 25 21 31 36 29 2b | 31 29 2a 34 0d 02 12 1e |rt%!16)+|1)*4....|
|000005c0| 6c 65 6e 67 74 68 5f 79 | 25 3d 73 70 72 69 74 65 |length_y|%=sprite|
|000005d0| 5f 73 74 61 72 74 25 21 | 32 30 0d 02 1c 04 0d 02 |_start%!|20......|
|000005e0| 26 1a 21 74 65 6d 70 6f | 72 61 72 79 5f 62 75 66 |&.!tempo|rary_buf|
|000005f0| 66 65 72 25 3d 31 34 39 | 0d 02 30 1a 74 65 6d 70 |fer%=149|..0.temp|
|00000600| 6f 72 61 72 79 5f 62 75 | 66 66 65 72 25 21 34 3d |orary_bu|ffer%!4=|
|00000610| 2d 31 0d 02 3a 43 c8 99 | 20 22 4f 53 5f 52 65 61 |-1..:C..| "OS_Rea|
|00000620| 64 56 64 75 56 61 72 69 | 61 62 6c 65 73 22 2c 74 |dVduVari|ables",t|
|00000630| 65 6d 70 6f 72 61 72 79 | 5f 62 75 66 66 65 72 25 |emporary|_buffer%|
|00000640| 2c 74 65 6d 70 6f 72 61 | 72 79 5f 62 75 66 66 65 |,tempora|ry_buffe|
|00000650| 72 25 2b 34 30 0d 02 44 | 26 73 63 72 65 65 6e 5f |r%+40..D|&screen_|
|00000660| 73 74 61 72 74 25 3d 74 | 65 6d 70 6f 72 61 72 79 |start%=t|emporary|
|00000670| 5f 62 75 66 66 65 72 25 | 21 34 30 0d 02 4e 04 0d |_buffer%|!40..N..|
|00000680| 02 58 14 e3 20 6f 70 74 | 25 3d 30 20 b8 20 32 20 |.X.. opt|%=0 . 2 |
|00000690| 88 20 32 0d 02 62 18 50 | 25 3d 74 65 6d 70 6f 72 |. 2..b.P|%=tempor|
|000006a0| 61 72 79 5f 62 75 66 66 | 65 72 25 0d 02 6c 0e 5b |ary_buff|er%..l.[|
|000006b0| 20 6f 70 74 20 6f 70 74 | 25 0d 02 76 04 0d 02 80 | opt opt|%..v....|
|000006c0| 24 3b 20 72 30 20 3d 20 | 70 6f 69 6e 74 65 72 20 |$; r0 = |pointer |
|000006d0| 74 6f 20 73 74 61 72 74 | 20 6f 66 20 69 6d 61 67 |to start| of imag|
|000006e0| 65 0d 02 8a 27 3b 20 72 | 31 20 3d 20 61 64 64 72 |e...'; r|1 = addr|
|000006f0| 65 73 73 20 6f 66 20 73 | 63 72 65 65 6e 20 2b 20 |ess of s|creen + |
|00000700| 78 20 6f 66 66 73 65 74 | 0d 02 94 22 3b 20 72 32 |x offset|..."; r2|
|00000710| 20 3d 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 65 6e | = point|er to en|
|00000720| 64 20 6f 66 20 69 6d 61 | 67 65 0d 02 9e 2f 3b 20 |d of ima|ge.../; |
|00000730| 72 33 20 3d 20 6c 65 6e | 67 74 68 20 69 6e 20 62 |r3 = len|gth in b|
|00000740| 79 74 65 73 20 6f 66 20 | 6f 6e 65 20 67 72 61 70 |ytes of |one grap|
|00000750| 68 69 63 73 20 6c 69 6e | 65 0d 02 a8 04 0d 02 b2 |hics lin|e.......|
|00000760| 0f 6d 6f 76 20 72 31 32 | 2c 20 72 33 0d 02 bc 04 |.mov r12|, r3....|
|00000770| 0d 02 c6 0f 2e 6c 69 6e | 65 5f 6c 6f 6f 70 25 0d |.....lin|e_loop%.|
|00000780| 02 d0 13 61 64 64 20 72 | 33 2c 20 72 31 32 2c 20 |...add r|3, r12, |
|00000790| 72 30 0d 02 da 04 0d 02 | e4 0f 2e 62 6c 69 74 5f |r0......|...blit_|
|000007a0| 6c 6f 6f 70 25 0d 02 ee | 35 6c 64 6d 69 61 20 72 |loop%...|5ldmia r|
|000007b0| 30 21 2c 20 7b 72 34 2d | 72 31 31 7d 20 3b 20 66 |0!, {r4-|r11} ; f|
|000007c0| 61 73 74 20 38 78 33 32 | 2d 62 69 74 20 64 61 74 |ast 8x32|-bit dat|
|000007d0| 61 20 74 72 61 6e 73 66 | 65 72 0d 02 f8 17 73 74 |a transf|er....st|
|000007e0| 6d 69 61 20 72 31 21 2c | 20 7b 72 34 2d 72 31 31 |mia r1!,| {r4-r11|
|000007f0| 7d 0d 03 02 0e 63 6d 70 | 20 72 30 2c 20 72 33 0d |}....cmp| r0, r3.|
|00000800| 03 0c 12 62 6c 74 20 62 | 6c 69 74 5f 6c 6f 6f 70 |...blt b|lit_loop|
|00000810| 25 0d 03 16 04 0d 03 20 | 14 61 64 64 20 72 31 2c |%...... |.add r1,|
|00000820| 20 72 31 2c 20 23 32 30 | 38 0d 03 2a 0e 63 6d 70 | r1, #20|8..*.cmp|
|00000830| 20 72 30 2c 20 72 32 0d | 03 34 12 62 6c 74 20 6c | r0, r2.|.4.blt l|
|00000840| 69 6e 65 5f 6c 6f 6f 70 | 25 0d 03 3e 04 0d 03 48 |ine_loop|%..>...H|
|00000850| 0f 6d 6f 76 20 70 63 2c | 20 72 31 34 0d 03 52 05 |.mov pc,| r14..R.|
|00000860| 5d 0d 03 5c 0a ed 20 6f | 70 74 25 0d 03 66 04 0d |]..\.. o|pt%..f..|
|00000870| 03 70 21 e7 20 6c 65 6e | 67 74 68 5f 78 25 3e 30 |.p!. len|gth_x%>0|
|00000880| 20 80 20 6c 65 6e 67 74 | 68 5f 79 25 3e 30 20 8c | . lengt|h_y%>0 .|
|00000890| 0d 03 7a 64 c8 99 20 22 | 4f 53 5f 47 42 50 42 22 |..zd.. "|OS_GBPB"|
|000008a0| 2c 33 2c 66 69 6c 65 5f | 68 61 6e 64 6c 65 25 2c |,3,file_|handle%,|
|000008b0| 69 6d 61 67 65 5f 62 75 | 66 66 65 72 25 2c 6c 65 |image_bu|ffer%,le|
|000008c0| 6e 67 74 68 5f 78 25 2a | 28 6c 65 6e 67 74 68 5f |ngth_x%*|(length_|
|000008d0| 79 25 2b 31 29 2c 69 6d | 61 67 65 5f 73 74 61 72 |y%+1),im|age_star|
|000008e0| 74 25 2d 74 65 6d 70 6f | 72 61 72 79 5f 62 75 66 |t%-tempo|rary_buf|
|000008f0| 66 65 72 25 0d 03 84 04 | 0d 03 8e 45 f4 20 72 65 |fer%....|...E. re|
|00000900| 67 69 73 74 65 72 73 20 | 74 6f 20 62 65 20 70 61 |gisters |to be pa|
|00000910| 73 73 65 64 20 74 6f 20 | 61 62 6f 76 65 20 6d 2f |ssed to |above m/|
|00000920| 63 20 72 6f 75 74 69 6e | 65 20 28 41 25 3d 72 30 |c routin|e (A%=r0|
|00000930| 2c 20 42 25 3d 72 31 20 | 65 74 63 2e 29 0d 03 98 |, B%=r1 |etc.)...|
|00000940| 04 0d 03 a2 14 41 25 3d | 69 6d 61 67 65 5f 62 75 |.....A%=|image_bu|
|00000950| 66 66 65 72 25 0d 03 ac | 1e 42 25 3d 73 63 72 65 |ffer%...|.B%=scre|
|00000960| 65 6e 5f 73 74 61 72 74 | 25 2b 6f 66 66 73 65 74 |en_start|%+offset|
|00000970| 5f 78 25 0d 03 b6 2e 43 | 25 3d 69 6d 61 67 65 5f |_x%....C|%=image_|
|00000980| 62 75 66 66 65 72 25 2b | 28 6c 65 6e 67 74 68 5f |buffer%+|(length_|
|00000990| 78 25 2a 28 6c 65 6e 67 | 74 68 5f 79 25 2b 31 29 |x%*(leng|th_y%+1)|
|000009a0| 29 0d 03 c0 10 44 25 3d | 6c 65 6e 67 74 68 5f 78 |)....D%=|length_x|
|000009b0| 25 0d 03 ca 04 0d 03 d4 | 17 d6 20 74 65 6d 70 6f |%.......|.. tempo|
|000009c0| 72 61 72 79 5f 62 75 66 | 66 65 72 25 0d 03 de 04 |rary_buf|fer%....|
|000009d0| 0d 03 e8 05 cd 0d 03 f2 | 04 0d 03 fc 13 d9 23 20 |........|......# |
|000009e0| 66 69 6c 65 5f 68 61 6e | 64 6c 65 25 0d 04 06 04 |file_han|dle%....|
|000009f0| 0d 04 10 05 e1 0d ff    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+